From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 15 Jul 2007 18:40:09 +0000 (+0000)
Subject: (tutorial--find-changed-keys): Handle C-x specially like ESC.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~534^2~3^2~2238
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=dafb63c2042c5dcdf0c5228cb9dba7961edb209a;p=emacs.git

(tutorial--find-changed-keys): Handle C-x specially like ESC.
---

diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index 4856d178056..feaabbbb19e 100644
--- a/lisp/tutorial.el
+++ b/lisp/tutorial.el
@@ -431,10 +431,16 @@ where
 	       (def-fun (nth 0 kdf))
 	       (def-fun-txt (format "%s" def-fun))
 	       (rem-fun (command-remapping def-fun))
+	       ;; Handle prefix definitions specially
+	       ;; so that a mode that rebinds some subcommands
+	       ;; won't make it appear that the whole prefix is gone.
 	       (key-fun (if (eq def-fun 'ESC-prefix)
 			    (lookup-key global-map [27])
-			  (key-binding key)))
+			  (if (eq def-fun 'Control-X-prefix)
+			      (lookup-key global-map [24])
+			    (key-binding key))))
 	       (where (where-is-internal (if rem-fun rem-fun def-fun))))
+
 	  (if where
 	      (progn
 		(setq where (key-description (car where)))